home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / dev / amos / AMOS1097.lzh / AMOSLIST / 000051_amos-request@svcs1.digex.net_Fri Oct 3 07:48:18 1997.msg < prev    next >
Internet Message Format  |  1997-11-02  |  2KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.     by mail3.access.digex.net (8.8.5/8.8.5) with ESMTP id HAA20771
  3.     for <mcox@access.digex.net>; Fri, 3 Oct 1997 07:48:17 -0400 (EDT)
  4. Received: (from daemon@localhost)
  5.     by svcs1.digex.net (8.8.5/8.8.5) id GAA01273
  6.     for amos-out; Fri, 3 Oct 1997 06:36:31 -0400 (EDT)
  7. Received: from mail4.access.digex.net (mail4.access.digex.net [205.197.247.2])
  8.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id GAA01270
  9.     for <amos-list@svcs1.digex.net>; Fri, 3 Oct 1997 06:36:30 -0400 (EDT)
  10. Received: from com1.uclan.ac.uk (com1.uclan.ac.uk [193.61.255.3])
  11.     by mail4.access.digex.net (8.8.5/8.8.5) with ESMTP id GAA07305
  12.     for <amos-list@access.digex.net>; Fri, 3 Oct 1997 06:36:18 -0400 (EDT)
  13. Received: from mail-gw.uclan.ac.uk by com1.uclan.ac.uk with SMTP (PP);
  14.           Fri, 3 Oct 1997 11:31:59 +0100
  15. Received: from MAS1/MAILQ by mail-gw.uclan.ac.uk (Mercury 1.21);
  16.           3 Oct 97 11:36:09 GMT+0
  17. Received: from MAILQ by MAS1 (Mercury 1.21); 3 Oct 97 11:35:36 GMT+0
  18. From: "Lee." <l.a.atkins@uclan.ac.uk>
  19. Organization: University of Central Lancashire
  20. To: amos-list@access.digex.net
  21. Date: Fri, 3 Oct 1997 11:30:14 GMT+0
  22. Subject: Re: Sorting routine. Bubble sort
  23. Priority: normal
  24. X-mailer: Pegasus Mail for Windows (v2.33)
  25. Message-ID: <4AED992BA0@mail-gw.uclan.ac.uk>
  26. Status: O
  27. X-Status: 
  28.  
  29.  
  30. > Hi!
  31. > 
  32. > Is there a smooth way to sort 20 variables???
  33. > 
  34. This is the second sorting thing written so heres my bubble sort 
  35. routine.
  36. Im doing this now from memory so it may/may not work
  37.  
  38. Dim v(20)               <-our variables
  39. ...
  40. .....
  41.  
  42. Repeat
  43. c=0
  44. For q=1 to 19
  45. IF v(q)>v(q+1)
  46.  temp=v(q)
  47.  v(q)=v(q+1)
  48.  v(q+1)=temp         <-swap em round
  49.  c=1
  50. END IF
  51. Next q
  52. Until c=0
  53.  
  54. That should work!! hopefuly
  55. ____________________________________
  56. Lee Atkins.
  57. L.A.ATKINS@UCLAN.AC.UK
  58.  
  59. IRC nick : EMBWBAM
  60. ________________________________________
  61. Metal detector mornings!
  62. ________________________________________